home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr29 / blankr50.zip / BLANKER.FNC < prev    next >
Text File  |  1995-04-12  |  734b  |  20 lines
  1. /*********************************************************************/
  2. /* BLANKER.FNC                                                       */
  3. /* (C) Peter Wansch, 1995                                            */
  4. /* PLEASE DO NOT MODIFY THIS FILE                                    */
  5. /*********************************************************************/
  6. Parse Arg Data Create Warp
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9. If Create = 0 Then
  10.   Do
  11.     If Warp
  12.     Then Call SysOpenObject Data, 0, TRUE;
  13.     Else Call SysSetObjectData Data, 'OPEN=DEFAULT';
  14.     If Result = 1 Then
  15.       Return Result
  16.   End
  17. If Warp 
  18. Then Call SysOpenObject Data, 0, FALSE;
  19. Return (Result = 1);
  20.